home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / filenames.scm < prev    next >
Text File  |  1995-10-13  |  1KB  |  47 lines
  1.  
  2. ; Generate filenames.make from *-packages.scm.
  3.  
  4.  
  5. ; Define DEFINE-STRUCTURE and friends
  6. (for-each load
  7.       '("bcomp/module-language.scm"
  8.         "alt/config.scm"
  9.         "env/flatload.scm"))
  10.  
  11. (load-configuration "packages.scm")  
  12.  
  13. ; The following defines are unnecessary; they only serve to suppress
  14. ; annoying "undefined" warnings for some forward references.
  15. (define syntactic 0) 
  16. (define tables 0) 
  17. (define define-record-types 0)
  18.  
  19. (flatload linker-structures)         
  20.  
  21. (define q-f (all-file-names link-config)) 
  22.  
  23. ; (display "Initial structures") (newline)
  24. (flatload initial-structures)
  25.  
  26. (define scheme (make-scheme environments evaluation))
  27.  
  28. (define initial-system
  29.   (structure (export)
  30.     (open ;; Cf. initial.scm
  31.       (make-initial-system scheme (make-mini-command scheme))
  32.       module-system
  33.       ensures-loaded
  34.       for-reification))) ;foo...
  35.  
  36. (define i-f (all-file-names initial-system))
  37.  
  38. ; (display "Usual structures") (newline)
  39. (flatload usual-structures)
  40.  
  41. (define u-f (all-file-names usual-features initial-system))
  42.  
  43. (write-file-names "filenames.make"      
  44.           'initial-files i-f
  45.           'usual-files u-f
  46.           'linker-files q-f)
  47.